home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / Supplement / my stuff / arcsin next >
Text File  |  1990-12-31  |  283b  |  14 lines
  1. \ rfl - useful definitions of arcSin and arcCos
  2.  
  3. : arcsin { %x -- f }
  4.         %x fabs .3 f>= 
  5.         IF %x %x 1. f+ 1. %x f- f* sqrt f/ arctan
  6.         ELSE %x fabs f0>
  7.             IF %x 1. %x %x f* f- sqrt f/ arctan
  8.             ELSE 0.
  9.             THEN
  10.         THEN ;
  11.  
  12. : arccos { %x -- f }
  13.         1. %x f- 1. %x f+ f/ sqrt arctan 2. f* ;
  14.